#AKT_S40_INTP RevPol
//  ́AύXĂ͂܂
#include "..\RevPolStdMacro.txt" // ʊȈՉ}Nǂݍ
#include "MagicalDestMacro.txt"  // }WJ6fXgCp̃}Nǂݍ
#main



////////////////////////////////////////
////////////////////////////////////////
// s܂B
//





// ϐɔЖB
$Ж  Ж 
$CxgID  CxgID 

// _̂ƂɃ^OtCxg
$CxgID 100 H`Ȃ "CEID_" $CxgID strcat ɍs
$CxgID 101 H`Ȃ "CEID_" $CxgID strcat ɍs
$CxgID 102 H`Ȃ "CEID_" $CxgID strcat ɍs
$CxgID 103 H`Ȃ "CEID_" $CxgID strcat ɍs
$CxgID 104 H`Ȃ "CEID_" $CxgID strcat ɍs


// v΁ACxgBiŗL̂Ƃˁj
$Ж "Jpj["		 H`Ȃ "CE_" $Ж + ɍs
$Ж "r"			 H`Ȃ "CE_" $Ж + ɍs
$Ж "Ղ̓G"		 H`Ȃ "CE_" $Ж + ɍs
$Ж "Au"		 H`Ȃ "CE_" $Ж + ɍs
$Ж "ґ叫R"		 H`Ȃ "CE_" $Ж + ɍs
$Ж "ÑAXeJA"	 H`Ȃ "CE_" $Ж + ɍs
$Ж "J}Ll"		 H`Ȃ "CE_" $Ж + ɍs
$Ж "qL"			 H`Ȃ "CE_" $Ж + ɍs

܂




//Jpj[̃Cxg
CE_Jpj[:
	W
	W
	ʐl
	Eugj[
	
	"ccA܂B" A
	E
	"[A`B" A
܂



//Jpj[̃Cxg
CE_r:
	W
	W
	ʐl
	Eugj[
	
	"rłB" A
	E
	"`B" A
܂

CE_qL:
	W
	W
	ugj[
	EqL
	
	"u˂[˂[v" A
	E
	"uɂ[ɂ[v" A
	
	"u˂[˂[v" A
	EOrm
	E
	"uǂȂȁv" A
	
	"uAlԁv" A
	E
	"uĂƎ悤Ȃ񂾂v" A
	
	"uȂƂȂccv" A
	
	"ڂ𗣂ɁAqL͋œĂB" A
	
	"u˂[c˂[cv" A
	E
	"uقAsBugj[v" A
	//l^FKann
܂

CE_Ղ̓G:
	{C
	W
	ugj[
	EՂ̓G
	E
	"u[B܂[IIv" A
	
	"u`͏̂[v" A
	E
	"u߂ȂB͂Ă[v" A
	
	"uႠAȂŕt_񂾁IHv" A
	E
	"uAoSŁB͔ȂĂv" A
	
	"uȂdȂȁ[v" A
܂


CE_Au:
	$eventcheck  "_叫R" ƂOŃO[o琮ő
	$eventcheck 1@H`Ȃ΁@"CE_AuRς" ɍs
	X
	W
	ugj[
	EÍ
	E
	"u߂Ă[B̋@B󂳂Ȃł[Iv" A
	
	"uʖڂʖڂ[bI@Ȅ̎q炨َqDƂ邨O̖]͂Ȃ[Iv" A
	E
	"uA킵̖ɂȂΐE̔Oɂ낤B߂[v" A
	
	"uӂȁ[B炦[A}WJSŃr[bIIIv" A
	E
	"u߂낧[IIIv" A
	
	"uǂ[I@ɂAOł܂[IIv" A
	E
	"ûȂĂ݂[II@Ƃ킵łт悤ƂAm叫RCꂽ̋@B͉󂳂͂Ȃ[IIv" A
	
	"uIIIIv" A
	
	"炫Aア``" A
	E
	"uv" A
	"uǁAmAA叫RlAA߂ȂAAv" A
	
	"ǂ[" A
	
	"uӁA͖łтv" A
	O[o 1 ̓e "_A" ƂOő
܂



CE_AuRς:
	X
	W
	ugj[
	EÍ
	
	"uAÍҁ[II@͂₭~[IIv"A
	E
	"u[I@͂₱܂ł[[IIv"A
	
	"ccccc"A
	"ǂ[II"A
	"Í҂́AAu̎@\pāABB"A
܂



CE_ґ叫R:
	$eventcheck  "_A" ƂOŃO[o琮ő
	$eventcheck 1@HႤ`Ȃ΁@"CE_ґ叫RAO" ɍs
	//AƂ
	
	W
	ugj[
	E叫R
	
	"uAu~IIv"A
	BKP:
	
	"u܂łI@ǂ߂Aґ叫RIIv"A
	E
	"uӁcӂ͂͂͂͂́Aǂ߂cƁHv"A
	
	"ũ}WJp[ŌĂIv"A
	"u}WJSŃr[IIIv"A
	E
	"uȁAȂɂIIIv"A
	
	"tC[ccJb"A
	E
	"uAȂȂȁccv"A
	
	"u΁AoJȂIIIv"A
	EOrm
	E
	"uʖڂAugj[II@ɂ̓}WJp[͌Ȃ񂾁IIv"A
	
	"uA[Aǂ΂񂾁[IIv"A
	E叫R
	E
	"uAsIIIv"A
	
	"ucApIPނIIv"A
	
	"ugj[́A[[ƓB"A
	E
	"uAʁIIv"A
	
	"叫RA[[ƒǂB"A
	E
	"uӂ͂͂́Aǂ߂Bugj[Iv"A
	
	"u[A܂łIIv"A
	E
	"u˂IIIv"A
	
	"叫R̖җȃp`ugj[PII"A
	"ƎvꂽÂƂII"A
	E
	"uȁAȂɂIIv"A
	
	"叫Rݍ񂾒nʂAꗎII"A
	E
	"uȂ񂾂ƂIIHv"A
	
	"uvZʂbIIIv"A
	E
	"uȂɂAAA͂A܂Augj[cMlIIv"A
	
	"uȂƂ낤ƁAƂĂ̂bIv"A
	E
	"u΂ȂIIIIv"A
	
	"叫R͂ڂڂƁA܂Ŗ܂B"A
	
	"uZpCA͂ł[IIHv"A
	EOrm
	E
	"uAĂĂv"A
	E叫R
	E
	"uA̓bIIHv"A
	
	"uRN[gBґ叫RAO񂾂oIuWFɂĂ邺IIv"A
	E
	"u΂ȂIIv"A
	
	"ėґ㏞ŔA|pƂȂB"A
	O[o 1 ̓e "_叫R" ƂOő
	//l^FSX
܂
//AOɗƂB
CE_ґ叫RAO:
	
	W
	ugj[
	E叫R
	
	"uAґ叫RII@Au~Iv"A
	E
	"uB͏oʑkȁIv"A
	
	"uӂȃbIIv"A
	"BKP"ɍs
܂



CE_ÑAXeJA:
	A
	W
	ugj[
	EAXeJl
	
	"u[AŃLT}IV}CI@ϔOIIIv" A
	E
	"uAII@Ȏ͂III@Pɂ͂点Ă炨Iv" A
	"uƂŉ̉X𔃎IHv" A
	
	"uwZAɐ΂]ĂRċA邾낤III@AƈꏏIIIIv" A
	E
	"uӁAscv" A
܂



CE_J}Ll:
	F
	W
	ugj[
	EJ}Ll
	E
	"uLLAA@ӂɂĂꂽIv" A
	
	"uӂA`͏Ƃ͌̂Iv" A
	E
	"uƂȂ钉`̏؂Ɂu^̐̐Sӂ̂܂܂ɂvĂ낤v" A
	
	"uȂ̂cv" A
	"(\bI@^̐IH@ăZpCIIHH@ǁcAǂ΃bIII)"A
	
	"ccA͌ŁB"A
	END
	xtalk
	"" 0 LChara
	"" 0 RChara
	STAFF1
	""A
	STAFF2
	""A
	
	END_bkp:
		"[IĂ]"A
	"END_bkp" ɍs
܂


// wCxgID̃Cxg
CEID_100:
	W
	W
	Eg[}X
	
	"2000~ɓꂽ" A
	2000~𑝂₷

	// sꂽ񐔂𐔂ċL镔BB
		$count  "ID100̉" ƂOŃO[o琮ő
		$count CNg
		O[o $count ̓e "ID100̉" ƂOő
	// ܂A
	// $count = (int)GlobalGet("ID100̉");
	// $count++;
	// GlobalSet("ID100̉",$count)@Ɠ
	///////////////////////////////////////////////////

	"̃CxǵA" B
	$count B
	"ڂłB" A
܂



// wCxgID̃Cxg
CEID_101:
	// sꂽ񐔂𐔂ċL镔BB
		$count  "ID101̉" ƂOŃO[o琮ő
		$count CNg
		O[o $count ̓e "ID101̉" ƂOő
	///////////////////////////////////////////////////
	$count 1 H`Ȃ "CEID_101_" $count strcat ɍs
	$count 2 H`Ȃ "CEID_101_" $count strcat ɍs
	$count 3 H`Ȃ "CEID_101_" $count strcat ɍs
܂

//{CP
CEID_101_1:
	{C
	W
	ugj[
	EOrm
	
	"uZpCBԔꂢłˁv" A
	E
	"uAȁv"A
	
	"ԔȂrX{C̒hlŕB"A
܂


//{CQ
CEID_101_2:
	{C
	W
	ugj[
	EOrm
	
	"uZpCAZpCIv" A
	E
	"uӁ[A܂ȂȂł邩Hv"A
܂


//{CR
CEID_101_3:
	{C
	W
	ugj[
	EOrm
	
	"uԂ񉓂܂ŗ܂ˁcv" A
	E
	"uugj[A삪̂Hv"A
	
	"ucAZpCƂȂcv"A
	E
	"ucAGBsIv"A
܂

//W
// wCxgID̃Cxg
CEID_102:
	// sꂽ񐔂𐔂ċL镔BB
		$count  "ID102̉" ƂOŃO[o琮ő
		$count CNg
		O[o $count ̓e "ID102̉" ƂOő
	///////////////////////////////////////////////////
	$count 1 H`Ȃ "CEID_102_" $count strcat ɍs
	$count 2 H`Ȃ "CEID_102_" $count strcat ɍs
	$count 3 H`Ȃ "CEID_102_" $count strcat ɍs
܂


//WP
CEID_102_1:
	
	W
	ugj[
	EOrm
	
	"uZpCccÁcHv" A
	E
	"uW̒nBŗ͂~悤v"A
܂

//WQ
CEID_102_2:
	
	W
	ugj[
	EOrm
	
	"uZpCcA͂ǂɂł傤v" A
	E
	"uAǂ낤ȁv"A
܂

//WR
CEID_102_3:
	
	W
	ugj[
	EOrm
	
	"uZpCAn󂵎n߂Ă܂IIv" A
	E
	"uAW̒n~߂ɂ̓RN[ɏoȂ΂ȂȂv"A
	{C
	
	"uPԃugj[Â܂Iv"A
	
	"usՂ iޖ̈Ł[v"A
	
	"ułh邪ʑźv"A
	
	"usP؂ƂȂA]̖̐Sт`v"A
	//l^FPrincess Brve!iȁj
	
	"ugj[Kɉ̂̂ŁAW̒n͋~ꂽB"A
܂





//Ζ
// wCxgID̃Cxg
CEID_103:
	// sꂽ񐔂𐔂ċL镔BB
		$count  "ID103̉" ƂOŃO[o琮ő
		$count CNg
		O[o $count ̓e "ID103̉" ƂOő
	///////////////////////////////////////////////////
	$count 1 H`Ȃ "CEID_103_" $count strcat ɍs
	$count 2 H`Ȃ "CEID_103_" $count strcat ɍs
	$count 3 H`Ȃ "CEID_103_" $count strcat ɍs
܂


//ΖP
CEID_103_1:
	{C
	W
	ugj[
	EOrm
	E
	"u͂[cv" A
	
	"u͂[cv" A
	E
	"uȁcccv" A
	
	"uႢ܂ˁcccv" A
܂


//ΖQ
CEID_103_2:
	//Ƃ܂ɁAAXeJl𗎂Ƃ͖̂łB
	A
	W
	AXeJl
	
	"u݂ȁII@Ă񂾁Iv" A
	
	"un̐Ζ͉AXeJl̂́IIv" A
	
	"u̓zɎȁIIIv" A
܂


//ΖR
CEID_103_3:
	//Ƃ܂ɁAAXeJl𗎂Ƃ͖̂łB
	A
	W
	AXeJl
	
	"uII@̖ccv" A
	
	"uJ}LlƂA@ƂcAƂƂ̎ז悤Ƃ̂IIv" A
܂


//F
// wCxgID̃Cxg
CEID_104:
	// sꂽ񐔂𐔂ċL镔BB
		$count  "ID104̉" ƂOŃO[o琮ő
		$count CNg
		O[o $count ̓e "ID104̉" ƂOő
	///////////////////////////////////////////////////
	$count 1 H`Ȃ "CEID_104_" $count strcat ɍs
܂


//FP
CEID_104_1:
	F
	W
	ugj[
	EOrm
	
	"u[II@F[[IIIv" A
	E
	"uށAFȁv" A
	EJ}Ll
	E
	"u[II@I̗̓yƂ₪ā[IIIv" A
	
	"uɒnɐNĂ񂾂낤IIv" A
	E
	"u邳B߂ȂĂĂAĂȂ񂾂IIv" A
܂

